home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Mapping / m-delta-time < prev    next >
Lisp/Scheme  |  1998-10-24  |  1KB  |  56 lines
  1. m-delta-time voice-number length-list delta-time
  2.  
  3.  
  4. (setq length1 '(-1/4 1/8 1/8 -1/20 1/20 2/20 -1/20 1/12 -2/12))
  5. (setq delta1 '(1/2 3/4 1/2 3/4 5/4))
  6.  
  7. (m-delta-time 4 length1 delta1)
  8. => (-1/4 1/2 5/4)
  9. => (-3/8 3/4 -7/8)
  10. => (-11/20 1/2 -19/20)
  11. => (-3/5 3/4 -13/20)
  12.  
  13. (setq length2 '(-480 240 240 -96 96 192 -96 160 -320))
  14. (setq delta2 '(1440 960 960 1200 960))
  15.  
  16. (m-delta-time 1 length2 delta2)
  17. => (-480 1440 -480)
  18.  
  19. (setq len1 (m-delta-time 1 length1 delta1))
  20. => (-1/4 1/2 5/4)
  21.  
  22. (setq len2 (m-delta-time 2 length1 delta1))
  23. => (-3/8 3/4 -7/8)
  24.  
  25. (setq len3 (m-delta-time 3 length1 delta1))
  26. => (-11/20 1/2 -19/20)
  27.  
  28. (setq len4 (m-delta-time 4 length1 delta1))
  29. => (-3/5 3/4 -13/20)
  30.  
  31. (setq length
  32.       (qlength
  33.        '((28-01[-5] 20-2[-3] 4-0 12-1[-2]
  34.           4-1 28-01[-5] 20-2[-5]1[-2])
  35.          (20-[-2][11][-2]1[-4]1[-8]1[-3][17]))))
  36.  
  37. (setq positive (l-count :note :content length))
  38.  
  39. (setq delta-sel
  40.       (cfunction
  41.        (gen-noise-white
  42.         (apply '+ positive) 1.0 0.444555) '(1/2 3/4 5/4)))
  43.  
  44. (setq delta (symbol-divide positive nil nil delta-sel))
  45.  
  46. (setq v1 (m-delta-time 1 length delta))
  47. => ((-1/28 5/4 1/2 -9/140 3/4) (-1/10 5/4 -1/10 1/2 -19/20))
  48.  
  49. (setq v2 (m-delta-time 2 length delta))
  50. => ((-1/4 5/4 1/2 -3/5) (-3/4 3/4 -3/20 5/4))
  51.  
  52. (setq va (m-delta-time 3 length delta))
  53. => ((-3/4 5/4 -3/5) (-1/1 3/4 -23/20))
  54.  
  55. (setq vc (m-delta-time 4 length delta))
  56. => ((-1/1 1/2 -11/10) (-29/10))